(run-scheme): Use pop-to-buffer.

diff --git a/lisp/xscheme.el b/lisp/xscheme.el
index c09f53a89e281114c74110c1c09f417fc2d7723f..bb017f0c33f579dcf6f251625f0622e55229bd97 100644 (file)
--- a/lisp/xscheme.el
+++ b/lisp/xscheme.el
@@ -89,7 +89,7 @@ With argument, asks for a command line."
               (read-string "Run Scheme: " default)
               default))))
   (setq xscheme-process-command-line command-line)
-  (switch-to-buffer (xscheme-start-process command-line)))
+  (pop-to-buffer (xscheme-start-process command-line)))
 
 (defun reset-scheme ()
   "Reset the Scheme process."